Yiran Li report

Basic plot

1. Load data from CSV

library(ggplot2)
duration_passholder_type_100 = read.csv("duration_passholder_type_100.csv", header = TRUE)

2. Plot the data

qplot(duration_passholder_type_100$passholder_type,duration_passholder_type_100$duration,main = "Basic plot for Passholder type against duration",xlab = "pass holder tpye", ylab = "duration")

Facets

1. Load data from CSV

duration_passholder_type_station_name_100 = read.csv("duration_passholder_type_station_name_100.csv", header = TRUE)

2. Draw the facets graph

ggplot(duration_passholder_type_station_name_100, aes(duration_passholder_type_station_name_100$passholder_type, 
                                                      duration_passholder_type_station_name_100$duration, 
                                                      color = duration_passholder_type_station_name_100$station_name)) +
  geom_point() +
  facet_grid(cols=vars(duration_passholder_type_station_name_100$station_name)) +  
  theme(legend.position="none",axis.text.x = element_text(angle = 90, hjust = 1)) +
  labs(x = "Pass holder type") +
  labs(y = "Duration")

GGMAP

1. Load the data

#library(ggmap)
#source('register_google.R') 
#register_google(key = "<YOUR_GOOGLE_CLOUD_PLATFORM_API_KEY>")
#station_data  = geojson_read("station_map_geo_json.json")

2. Draw stations on the map

#map.google <- get_map(c(lon=-118.456667, lat=34.010167), zoom = 12)
#plot(station_data)
#ggmap(map.google) +
#  geom_point(data = station_data, aes(x = station_data$features, y = lat, color=alt), alpha = 0.5, shape=1) +
#  scale_colour_gradient(limits=c(4000, 8000), low="red", high="blue")

Interactive graph

1. load data

library(plotly)
duration_passholder_type_100$text = paste('Pass holder type: ',  duration_passholder_type_100$passholder_type, '<br>Duration: ', duration_passholder_type_100$duration)
g = qplot(
  passholder_type,
  duration,
  data = duration_passholder_type_100,
  main = "Basic plot for Passholder type against duration",
  xlab = "pass holder tpye", 
  ylab = "duration", aes(passholder_type,duration, text = text)) 

Ignoring unknown aesthetics: text

ggplotly(g, tooltip = "text")